home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / batchut / stnvjw23.zip / SETV18.BAT < prev    next >
DOS Batch File  |  1992-05-08  |  5KB  |  251 lines
  1. rem    settest.bat
  2. rem    for testing Setenv.Com
  3. rem    setenv version 1.8
  4. rem    environment space
  5. set
  6. rem    variable not found
  7. setenv log %%eq a 'a'
  8. if errorlevel 8 goto a0
  9. goto error
  10. :a0
  11. rem    answer    error    log=%log%
  12. setenv log
  13. rem    variable not found
  14. setenv log %%eq 'a' a
  15. if errorlevel 8 goto a1
  16. goto error
  17. :a1
  18. rem    answer    error    log=%log%
  19. setenv log
  20. rem    not a valid argument
  21. setenv log %%eq  
  22. if errorlevel 7 goto a2
  23. goto error
  24. :a2
  25. rem    answer    error    log=%log%
  26. setenv log
  27. rem    not a valid argument
  28. setenv log %%eq "a"
  29. if errorlevel 7 goto a3
  30. goto error
  31. :a3
  32. rem    answer    error    log=%log%
  33. setenv log
  34. rem    not a valid argument
  35. setenv log %%eq t2
  36. if errorlevel 7 goto a4
  37. goto error
  38. :a4
  39. rem    answer    error    log=%log%
  40. setenv log
  41. rem    unmatched delimiter
  42. setenv log %%eq 'a' 'b
  43. if errorlevel 6 goto a5
  44. goto error
  45. :a5
  46. rem    answer    error    log=%log%
  47. setenv log
  48. rem    unmatched delimiter
  49. setenv log %%eq 'a' "b
  50. if errorlevel 6 goto a6
  51. goto error
  52. :a6
  53. rem    answer    error    log=%log%
  54. setenv log
  55. rem    equal
  56. setenv log %%eq 'a' "a"
  57. if errorlevel 5 goto b0
  58. if errorlevel 3 goto b0
  59. goto error
  60. :b0
  61. rem    answer    true    log=%log%
  62. setenv log
  63. setenv t2 ab
  64. rem    equal
  65. setenv log %%eq 'ab' t2
  66. if errorlevel 5 goto b1
  67. if errorlevel 3 goto b1
  68. goto error
  69. :b1
  70. rem    answer    true    log=%log%
  71. setenv log
  72. rem    equal
  73. setenv log %%eq 'ac' t2
  74. if errorlevel 5 goto b2
  75. if errorlevel 3 goto b2
  76. goto error
  77. :b2
  78. rem    answer    false    log=%log%
  79. setenv log
  80. rem    equal
  81. setenv log %%eq ' ab' t2
  82. if errorlevel 5 goto b3
  83. if errorlevel 3 goto b3
  84. goto error
  85. :b3
  86. rem    answer    true    log=%log%
  87. setenv log
  88. rem    equal
  89. setenv log %%eq 'ab ' t2
  90. if errorlevel 5 goto b4
  91. if errorlevel 3 goto b4
  92. goto error
  93. :b4
  94. rem    answer    false    log=%log%
  95. setenv log
  96. rem    equal
  97. setenv log %%eq t2 'ab '
  98. if errorlevel 5 goto b5
  99. if errorlevel 3 goto b5
  100. goto error
  101. :b5
  102. rem    answer    false    log=%log%
  103. setenv log
  104. rem    equal
  105. setenv log %%eq ' ab ' "ab "
  106. if errorlevel 5 goto b6
  107. if errorlevel 3 goto b6
  108. goto error
  109. :b6
  110. rem    answer    true    log=%log%
  111. setenv log
  112. rem    less than
  113. setenv log %%lt 'ab' 'ac'
  114. if errorlevel 5 goto c0
  115. if errorlevel 3 goto c0
  116. goto error
  117. :c0
  118. rem    answer    true    log=%log%
  119. rem    less than
  120. setenv log %%lt 'ac' 'ab'
  121. if errorlevel 5 goto c1
  122. if errorlevel 3 goto c1
  123. goto error
  124. :c1
  125. rem    answer    false    log=%log%
  126. rem    less than
  127. setenv log %%lt 'ab' 'ab'
  128. if errorlevel 5 goto c2
  129. if errorlevel 3 goto c2
  130. goto error
  131. :c2
  132. rem    answer    false    log=%log%
  133. rem    less than equal
  134. setenv log %%le 'ab' 'ac'
  135. if errorlevel 5 goto c3
  136. if errorlevel 3 goto c3
  137. goto error
  138. :c3
  139. rem    answer    true    log=%log%
  140. rem    less than equal
  141. setenv log %%le 'ac' 'ab'
  142. if errorlevel 5 goto c4
  143. if errorlevel 3 goto c4
  144. goto error
  145. :c4
  146. rem    answer    false    log=%log%
  147. rem    less than equal
  148. setenv log %%le 'ab' 'ab'
  149. if errorlevel 5 goto c5
  150. if errorlevel 3 goto c5
  151. goto error
  152. :c5
  153. rem    answer    true    log=%log%
  154. rem    greater than
  155. setenv log %%gt 'ac' 'ab'
  156. if errorlevel 5 goto d0
  157. if errorlevel 3 goto d0
  158. goto error
  159. :d0
  160. rem    answer    true    log=%log%
  161. rem    greater than
  162. setenv log %%gt 'ab' 'ac'
  163. if errorlevel 5 goto d1
  164. if errorlevel 3 goto d1
  165. goto error
  166. :d1
  167. rem    answer    false    log=%log%
  168. rem    greater than
  169. setenv log %%gt 'ab' 'ab'
  170. if errorlevel 5 goto d2
  171. if errorlevel 3 goto d2
  172. goto error
  173. :d2
  174. rem    answer    false    log=%log%
  175. rem    greater than equal
  176. setenv log %%ge 'ac' 'ab'
  177. if errorlevel 5 goto d3
  178. if errorlevel 3 goto d3
  179. goto error
  180. :d3
  181. rem    answer    true    log=%log%
  182. rem    greater than equal
  183. setenv log %%ge 'ab' 'ac'
  184. if errorlevel 5 goto d4
  185. if errorlevel 3 goto d4
  186. goto error
  187. :d4
  188. rem    answer    false    log=%log%
  189. rem    greater than equal
  190. setenv log %%ge 'ab' 'ab'
  191. if errorlevel 5 goto d5
  192. if errorlevel 3 goto d5
  193. goto error
  194. :d5
  195. rem    answer    true    log=%log%
  196. :endtest
  197. rem    cleanup
  198. setenv log
  199. setenv t2
  200. rem    End of Test.
  201. goto fini
  202. :error
  203. echo An error occured.
  204. if errorlevel 10 goto full
  205. if errorlevel 9 goto offset
  206. if errorlevel 8 goto not
  207. if errorlevel 7 goto numb
  208. if errorlevel 6 goto del
  209. if errorlevel 5 goto update
  210. if errorlevel 4 goto dos
  211. if errorlevel 3 goto create
  212. if errorlevel 2 goto erase
  213. if errorlevel 1 goto root
  214. if errorlevel 0 goto help
  215. echo no errorlevel status
  216. goto fini
  217. :full
  218. echo environment space is full.
  219. goto fini
  220. :offset
  221. echo offset not valid.
  222. goto fini
  223. :not
  224. echo environment variable not found.
  225. goto fini
  226. :numb
  227. echo not a valid argument.
  228. goto fini
  229. :del
  230. echo unmatched delimiter.
  231. goto fini
  232. :update
  233. echo environment variable updated.
  234. goto fini
  235. :dos
  236. echo don't know about MS-DOS V1.x
  237. goto fini
  238. :create
  239. echo environment variable created.
  240. goto fini
  241. :erase
  242. echo environment variable erased.
  243. goto fini
  244. :root
  245. echo root environment set.
  246. goto fini
  247. :help
  248. echo no command, help issued.
  249. goto fini
  250. :fini
  251.